100 PRINT"[147]":POKE36879,15:DIMP(27) 110 DIMDI(28):FORI=1TO27:READX1:X2=X2+X1:DI(I+1)=X2:NEXTI:DI(1)=0 120 DD=37154:P1=37151:P2=37152 130 PRINT" [169] [146]  [223]" 140 PRINT" [169] [146]  [223]" 150 PRINT" [169] [146]  [223]" 160 PRINT"[169]  [146]   [223]" 170 PRINT"  [146]   [223]" 180 PRINT" [146][169] [169]  [146]   [146]   " 190 PRINT" [169]   [146]   [146]   " 200 PRINT" [169]   [146]   [146]   " 210 PRINT"   [146]   [146]   " 220 PRINT"   [146]   [146]   " 230 PRINT" [169]   [146]   [146]   " 240 PRINT" [169]   [146]     " 250 PRINT"[169]   [146][169]     " 260 PRINT"   [146][169]     " 270 PRINT" [146][169] [223]  [146][169]" 280 PRINT"[223] [146][169] [223] [146][169]" 290 PRINT"[159]T I C [195] [159]T A C [195][159] T O E" 300 PRINTTAB(2)"[150]FIREBUTTON TO PLAY" 310 POKEDD,255:P=PEEK(P1):IF -((PAND32)=0)<>1 THEN 310 320 PRINT"[147][153]";:POKE36879,10:O=1 325 H=256*PEEK(648):PH=30720:IFPEEK(648)=16THENPH=33792 330 CU=32:CC=0:S=36874:VO=36878 340 POKES+13,240 350 P(1)=31+H:P(2)=34+H:P(3)=37+H:P(4)=77+H:P(5)=80+H:P(6)=83+H:P(7)=123+H 360 P(8)=126+H:P(9)=129+H:P(10)=207+H 370 P(11)=210+H:P(12)=213+H:P(13)=253+H:P(14)=256+H:P(15)=259+H 380 P(16)=299+H:P(17)=302+H:P(18)=305+H:P(19)=383+H:P(20)=386+H:P(21)=389+H 390 P(22)=429+H:P(23)=432+H:P(24)=435+H:P(25)=475+H:P(26)=478+H:P(27)=481+H 400 FORD=1TO2:PRINT"PLAYER #";D;:INPUTPL$(D):NEXT:CO(1)=4:CO(2)=5 410 FORV=1TO2:PL$(V)=LEFT$(PL$(V),8):NEXT 420 M(2)=87:M(1)=86:L=1 430 INPUT"HOW MANY ROUNDS";RD 450 PRINT"[147]";:FORV=1TO3 460 PRINT" [164][164][164][164][164][164][164][164][164]" 470 PRINTTAB(6)"[223][146] [205] [205] [205]" 480 PRINTTAB(6)"[223][223][146][164] [205][164] [205][164] [205]" 490 PRINTTAB(7)"[223][223][146][163][163][205][163][163][205][163][163][205]" 500 PRINTTAB(8)"[223][223][146][164] [205][164] [205][164] [205]" 510 PRINTTAB(9)"[223][223][146][163][163][205][163][163][205][163][163][205]" 520 PRINTTAB(10)"[223][223][146] [205] [205] [205]" 530 PRINTTAB(11)"[223] [146]"; 540 ONVGOTO550,560,570 550 PRINT"";:NEXT 560 PRINT"";:NEXT 570 R=1 580 POKEP(O),160:POKEP(O)+PH,2 590 PRINT"[158]ROUND:[153]";R 600 PRINT"";:FORV=1TO11:PRINT" ";:NEXTV 605 PRINT"":PRINTPL$(L);"'S":PRINT"TURN" 610 POKEDD,127:P=PEEK(P2)AND128:J1=-(P=0) 620 POKEDD,255:P=PEEK(P1):J2=-((PAND16)=0) 630 IFJ1=1THENPP=1:GOTO660 640 IFJ2=1THENPP=-1:GOTO680 650 GOTO760 660 IFO=27THENO=26:NX=CU:NC=CC:GOTO710 670 NX=PEEK(P(O+1)):NC=PEEK(P(O+1)+PH):GOTO700 680 IFO=1THENO=2:NX=CU:NC=CC:GOTO710 690 NX=PEEK(P(O-1)):NC=PEEK(P(O-1)+PH) 700 POKEP(O),CU:POKEP(O)+PH,CC 710 O=O+PP 720 CU=NX:CC=NC 730 POKEP(O),160:POKEP(O)+PH,1 740 POKEVO,15:POKES,170 750 FORD=1TO20:NEXT:POKEVO,0:GOTO770 760 FORD=1TO15:NEXT 770 POKEP(O),CU:POKEP(O)+PH,CC:FORD=1TO45:NEXT:POKEP(O),160:POKEP(O)+PH,1 780 POKEDD,255:P=PEEK(P1):J= -((PAND32)=0):IFJ<>1THEN610 790 IFCU=32THEN820 800 POKEVO,15:POKES,160 810 FORD=1TO500:NEXT:POKEVO,0:GOTO610 820 POKEP(O),M(L):POKEP(O)+PH,CO(L):CU=M(L):CC=CO(L) 830 POKEVO,15:POKES,200 840 FORD=1TO250:NEXT:POKEVO,0 850 A=0:B=0:C=0 860 RESTORE:READX:FOR I=1TODI(O)+13:READX,Y:NEXTI 870 FORI=DI(O)+1TODI(O+1) 880 READ X,Y:IF(PEEK(P(X))=M(L))AND(PEEK(P(Y))=M(L))THEN B=X:C=Y:A=O 890 NEXTI 900 IFA=0THEN1010 910 PRINT" " 920 PRINT"";PL$(L):PRINT"WINS!"; 930 SC(L)=SC(L)+1 940 T=255:POKEVO,15:POKES,133::FORX=1TO10 950 H=INT(16*RND(1)) 960 POKEP(A)+PH,H 970 POKEP(B)+PH,H 980 POKEP(C)+PH,H 990 POKES,T:FORD=1TO350:NEXT:T=T-26:NEXT:POKES,160:POKEVO,0:GOTO1000 1000 FORO=1TO27:POKEP(O),32:POKEP(O)+PH,0:NEXT 1010 IFL=1THENL=2:GOTO1030 1020 L=1 1030 IFA=0THEN590 1040 CU=32:CC=0:NX=0:NC=0:O=1 1050 R=R+1:IFR>RDTHEN1070 1060 PRINT" ":PRINT" ":GOTO590 1070 PRINT"[147] " 1080 PRINT"FINAL SCORE" 1090 PRINT"[158][183][183][183][183][183][183][183][183][183][183][183]" 1100 PRINTPL$(1);":";SC(1) 1110 PRINTPL$(2);":";SC(2) 1120 PRINT"FIREBUTTON TO PLAY AGAIN,(E) TO END" 1125 POKEDD,255:P=PEEK(P1) 1128 GET XX$:IF XX$="E" THEN END 1129 IF -((PAND32)=0)<>1 THEN 1125 1130 POKE198,0:RUN 1140 DATA 7,4,7,4,5,4,7,4,7,4,5,4,5,12,5,4,5,4,7,4,7,4,5,4,7,4,7 1150 DATA 2,3,4,7,5,9,10,19,13,25,11,21,14,27,1,3,5,8,11,20 1160 DATA 14,26,2,1,6,9,5,7,12,21,15,27,14,25,11,19,5,6 1170 DATA 14,24,13,22,1,7,1,9,2,8,3,7,4,6,14,23,15,24 1180 DATA 3,9,14,22,4,5,1,4,3,5,8,9,16,25,13,19,17,27,14,21 1190 DATA 7,9,2,5,17,26,14,20,1,5,3,6,7,8,18,27,15,21,17,25,14,19 1200 DATA 11,12,13,16,14,18,1,19,10,12,14,17,2,20,3,19,1,21 1210 DATA 14,16,15,18,10,11,3,21,10,16,14,15 1220 DATA 4,22,1,25,7,19,10,18,11,17,12,16,13,15,2,26 1230 DATA 1,27,3,25,4,24,6,22,7,21,8,20,9,19,12,18 1240 DATA 13,14,6,24,3,27,9,21,10,13,18,17,12,14,7,25 1250 DATA 11,14,16,18,8,26,9,25,7,27,12,15,10,14,16,17 1260 DATA 9,27,20,21,22,25,23,27,1,10,9,14,7,13,3,11 1270 DATA 23,26,2,11,8,14,19,21,19,20,27,24,23,25 1280 DATA 12,3,9,15,7,14,1,11,19,25,23,24,4,13,6,14 1290 DATA 19,27,20,26,21,25,22,24,5,14,22,23,21,27 1300 DATA 6,15,4,14,23,21,26,27,19,22,7,16,1,13,9,17 1310 DATA 3,14,20,23,25,27,8,17,2,14,19,23,21,24,25,26 1320 DATA 9,18,3,15,7,17,1,14